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Disclaimer 

Vector Graphic makes no representations or warranties, with respect to the contents of this manual 
itself, even if the product it describes is covered by a warranty or repair agreement. Further, 
Vector Graphic reserves the right to revise this publication and to make changes from time to time 
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changes, except r 4ien an agreement to the contrary exists. 

Revision Numbers 

The date and revision of each page herein appears at the bottom of each page. The revision letter 
such as A or 3 changes if the manual has been improved but the product itself ha3 not been 
significantly modified. The date and revision on the Title Page corresponds to that of the page 
most recently revised. Vhen the product itself is modified significantly, the product will get a 
new revision number, as shown on the manual's title page, and the manual will revert to revision A, 
as if it were treating a brand new product. THIS MANUAL SHOULD ONLY BE USED WITH -THE PRODUCT (S) 
IDENTIFIED ON THE TITLE PAGE. 
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VECTOR GRAPHIC 


GENERAL CESCRIPTICN 


The Version 5.3 executive is a complete systems executive, designed to support the new Vector 
Extended CP/M~ Operating System. It also drives the Flashwriter II (30 X 24) video display board, 
and the Vector Graphic serial and parallel keyboards. Thus it is recommended Cor use with the 
Vector Mindless Terminal. 

Because of the nature of the relationship between Extended CP/M and the 5.0 Executive, it is 
strongly suggested that any user writing conventional machine language programs use the facilities 
present in the operating system rather than those present in the Executive. It is further suggested 
that the user does not implement input and output commands directly to hardware devices. See the 
BIOS section of the Extended CP/M manual for information on how to interface to most I/O devices 
(including the keyboard and screen of the Mindless Terminal). See the 3D0S section of the Extended 
CP/M manual to find out how to interface to the Disk Drive (s) in your system. 

The 5.0 Executive differs so significantly from previous versions of the Extended Systems Monitor 
that it was given a different name. The changes made were necessary in order to accomodate the 
single/multiple user features of the Vector Operating System. In addition, disk boot driver 
routines have been included. Previously these were incorporated into a separate disk boot PRCM. 

This program includes an extensive command executive, a compactly written program designed to 
facilitate manipulation and display of memory data- The "prompt" which indicates that the Executive 
is waiting for operator entry is "ExeO". 

If you are operating a terminal in a Multi-User system and are not quite sure what you are doing, be 
aware that Executive commands may have undesirable effects on other users of your system. It is 
suggested that you gain experience when there are no other active users on the system. 

There are 23 ccmmands which are entered as a single- letter followed by up to four hexadecimal data 
fields. After each field is entered, a space is automatically output as a prompt. Either upper or 
lower case alpha characters may be- used, but lover case characters will be converted to upper case, 
and any non-hex characters will be ignored'. Allowable hex characters are- 0-9, A-F. Address fields 
are four digits long; other fields are- two digits- long. 

If a space- is typed at any time during field entry, a default value of zero is assumed for all 
leading zeroes. This applies to an entire field as well as one that has been partially entered, and 
the cursor will advance to the next field if required. For example, typing (SP) will have the same 
effect as typing 3000; typing 100 (SP) will have the same effect as 

Any command that generates a display can be temporarily halted by depressing the space bar and 
continued by pressing the space- bar again. The ESCape key will abort 3 display or canmand entry. 

The 5.0 Executive is located at address E000H — EBFFH in Vector Graphic systems. The physical 
implementation of this pcogran may vary according to the system involved. In currant systems as 
shipped from the factory, the Executive occupies the lower three quarters of the address space on a 
2732 EPRCM (or equivalent) . The upper quarter of the address space oa zhat EPROM is not used. The 
ZCB board in these systems has been modified to not respond to any amory address in the EC30H to 
EFFFH range. This allows these addresses to be- used by other memory boards in the system. 
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HEXADECIMAL NUMBERS 


5.0 EXECUTIVE 


The hexadecimal number 

system may seem 

confusing i 

L£ you are 

not familiar with it 

best system with' 16 bit 

addresses and 9 

bit data. 

It is usually not necessary 

number systems, as 1 

this is usually done by 

so f twa r e 

(i.e. assemblers). 

hexadecimal and other 

number systems 

used in microcomputers may be found 

introductory microcomputer book. 




HEX NUMBER 

DECIMAL VALUE 

JARGON 

BINARY BITS 

0 

0 



1 

1 

1 



1 

2 

2 



2 

A 

10 



4 

B 

11 



4 

C 

12 



4 

D 

13 



4 

E 

14 



4 

F 

15 



4 

10 

16 



5 

FF 

255 



8 

100 

256 

1 PAGE 


9 

3FF 

1,023 



10 

400 

1,024 

IK 


11 

FFF 

4,395 



12 

1300 

4,396 

4K 


13 

4000 

16,384 

16K 


15 

3000 

32,768 

32K 


16 

FFFF 

65,535 

64K-1 


16 


, but is clearly the 
to convert between 
An explanation of 
in virtually any 
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VECTOR GRAPHIC 


CCPtW© FORMAT 


£xec> B - BOOT FLOPPY 

Typing this caranand causes a jump to location E800H which is located in the disk boot section of the 
Executive. This will cause the disk operating system to be loaded into metro ry and transfer control 
to C?/M. This is designed to be used with a Vector system using the DualMode or FD controller 
board. The use of a Micropolis Disk Controller board is incompatible with this system. 

Sxe OC <ADR1> <ADR2> <ACR3> - COMPARE BLOCKS 

A byte— by-byte comparison will be made between the block of memory data starting at ADR1 and ending 
at ADR2 and a block of identical length starting at ADR3. The differences will be printed out with 
the address, the byte in the first block and the byte in the second block. This command is useful 
to compare two versions of a program or to verify that prans have been programmed, correctly. 

Exec> D <AER1> <ADR2> - DUMP IN HEX 

Memory contents from ADR1 through ADR 2 will be displayed as pairs of hexadecimal characters. The 

left character in each pair represents the four most significant bits of the memory location. The 

display may be halted and interrupted as described above.. The ASCII representation is displayed in a 
column on the right. 

SxeO E - EXTERNAL CCWUNICATICNS 

The Executive will output anything typed on the keyboard through port 4 on the ZC3 single board 
computer, the Bitstreamer II I/O board or an appropriately addressed Bitstreamer I board. Anything 
received on this port will be displayed on the screen. Normally a 300 baud modem would be connected 

to the serial RS-232 output from the I/O board, and this feature allows the system to be used as a 

simple terminal to communicate- with a host in a full duplex mode. Operation at speeds above 300 
baud requires the host to send null characters after linefeeds, so that characters are not lost when 
the screen scrolls up. 

Exec> P <AER1> <ADR2> <BYTE1> <SYTE2> - FIND TVO BYTES 

This memory range from AER1 through ADR 2 will be searched for the particular code combination BYTE 1 
BYTE 2. This is useful for locating particular commands or jump addresses. For example, if you 
wish to change a control character (say control D) in a program you may try FE 04, which is CPI 04 
since this is a common way of testing input characters. If you wish to find all locations that call 
or jump to a particular address, say C700H, then search for 00C7. There is no guarantee that each 
location displayed is valid object code — it may be part of a data table, ASCII string, or second 
and third bytes of a three byte instruction. 

Exec> G <ADR 1 > — GO TO AND EXECUTE 

*his command will cause a jump to ADR1 to execute a program or user subroutine. As with all 
Executive jimp commands, the address contained on the stack is "START" (E04CH) and if the user 
routine at ADR1 ends in "RET", program execution will return to the Executive. Approximately 96 
levels of stack space is available, but of course, pushing more registers on the stack than are 
popped will defeat the return feature with undesirable effects. 

Sxec> H - DISPLAY MEMORY BANKS 

This command displays the bank number of resident Video and Ram memory boards found in the system. 
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Exec>I <PCRT> - INPUT FROM A PORT 


5.0 EXECUTIVE 


Execution of this command will cause the CPU to execute an "IN PORT" instruction ard the accumulator 
contents immediately following this to be displayed. This command is useful in checking out 
peripheral equipment. Only those ports used by the terminal, cassette interface, etc., will contain 
interesting values. .All others will read FF since the data bus will be floating when the "IN" 
command is executed. 

Sxec XJ - COLD BOOT ' 

This command first checks to see which operating system is present in the system and then jumps to 
F800H. This will perform a cold boot of the operating system. 

SxeO K - SET BREAKPOINTS 

This command expects a 4 digit address, and will place a RESTART 7 (FF} at that location in RAM. 
'/hen that instruction is executed, which is a call to location 3338H, the CPU will jump to the 
-Executive routine that dumps the register contents. The instruction replaced with FF will also be 
restored. If a program is loaded over 0038H, the breakpoint instruction will be defeated unless 
RESET is depressed. Entry of the Executive at S000H will clear the breakpoint, as will pressing 
the RESET switch. 

Sxec> L - JUMP TO LOW RAM AT 0000H 

This command jumps to memory location 3003H which is the beginning of program memory. This is the 
CP/M warm start location. 

Exec> M <ADR1> <ACR2> <ACR3> - MOVE MEMORY BLOCK 

The data contained in memory starting at ADR1 and ending at ADR2 is moved to memory locations 
starting at ADR3. This command is useful for moving a program from a temporary storage location to 
its correct address. If there is an overlap of the two memory areas, interesting results are 
obtained. For example, M 6000 7BFF 6400 will cause the block of data fran 5000H through 63FFH to be 
repeated 3 times from 6000H through 7FFFH, since by the time location 6400H is read, it has been 
overwritten with data from 6000H. This is useful for bank programming of PROMs, or for creating 
repeating instruction sequences for test purposes. 

SxeO N - HCK-OE S T H) CTI V E MEMORY TEST 

Memory locations starting at 0000H are read and the data temporarily stored. The memory location is 
then tested to see if 00 and FF can be 'written ard read correctly. This continues after rewriting 
the original data until the first error is detected, whereupon the address is displayed followed by 
the data written into memory and what was read from it. This command is most useful for checking 
how much memory a system contains. For example, if the system contains 16K of memory, 4000 30 FF 
should be printed, indicating that there is no memory at address 4000H. Since the test is 
non-destructive to data in memory, it can be used at any time. 

Exec X? <PCRT> <XATA> - OUTPUT TO PORT 

The two hex digits "DATA" are loaded into the accumulator and the instruction "OUT PORT" is 
executed. This command is useful for checking out peripheral equipment. For example, if a printer 
is connected to I/O port 6> 0 06 41 will cause an "A" to be printed since 41 is the hex ASCII code 
for "A" . if there are other users on the system, be careful that you do not output to the port 
address of their memory boards as this may cause loss of data. 


Rev. 5.0-A 1/29/82 


7100-0250-00-00 


Page 7 



VECTOR GRAPHIC 

ExeO P <ADR1> - PROGRAM MOCRY 

The contents' of 16 bytes of memory containing ADR1 are displayed in both hex and ASCII, allowing 
preceding and following instructions to be viewed. Advancing to the next instruction is accomplished 
by typing space or cursor right (right arrow). Backspace or cursor left (left arrow) goes 
backwards. The cursor up and down keys move to an adjacent 16 byte block. Any hex characters typed 
will replace the existing contents of RAM. After every keypress, the screen display is refreshed by 
reading frcra memory, so the display reflects the exact memory contents. To terminate, depress 
ESCAPE. 

Exe OQ <ADR1> <AER2> - COMPUTE CHECKSUM 

The MOD 256 checksum of memory contents in the address range specified is computed and displayed. 
This command is useful for checking prams or files to see if anything has changed. Any source file 
or program written in pure code ( it does not write on itself) will have the same checksum as when it 
was loaded. While debugging assembly language programs, it is useful to be able to verify that a 
program being debugged has not written garbage in the source file or assembler. 

Exec> R - REGISTER DUMP 

This command will print a header identifying the Z-80 registers, and immediately below it the 
contents of all the registers. The flags are displayed with the letters Z C M E H for the zero, 
carry, minus, parity even, and auxiliary or half carry flags respectively. The presence of the 
letter indicates the flag is true. The contents of the memory locations pointed to by the 3, D, and 
H register pairs are also displayed as is the return address on the stack. 

ExeO S <ADR1> <AER2> <BYTS> - SEARCH FOR SINGLE BYTE 

This is similar to the: "F"‘ command, except that only one byte is searched for instead of two. An 
exanple of the use of this command is to display all locations in a program where an output to a 
port occurs (D3) . The address of each location will be displayed followed by "D3" and the next byte 
(the port number) . 

ExeO T <AER1> <ACR2> - TEST MEMORY 

This is an extremely useful command, especially ^en first setting up. a system. This command 
permits thorough testing of the system memory. A portion of a 64K byte pseudorandom number sequence 
is written into memory from AER1 through AER2, and the exact same sequence is regenerated from the 
initial point and compared with what is read from memory. If all locations compare, another portion 
of the sequence is used to repeat the test which continues until it is interrupted. Any memory 
errors are displayed with the address, what was written into memory and what was read from memory, 
respectively. This information is all that is needed to pinpoint a malfunctioning memory chip. 
This test is quite exhaustive if used for at least 10 cycles and is far superior to incrementing or 
complementing tests which nay not reveal addressing problems. The only area of system memory that 
cannot be tested with this routine is the few bytes required for the stack and video flags in the 
vicinity of FED0H on the- ZCB boards Do not use this test if there are other users active on the 
system. 

Exec MJ - JUMP TO 0100H 

This command permits easy return to programs in the transient program area of CP/M. 

Exe OW - WINCHESTER DRIVE BOOT 

Typing this command will cause a jump to E802H which is in the Disk Boot section of the Executive 
and contains the Winchester drive bootstrap loader. The boot program wall cause the CP/M operating 
system to be loaded into memory and control to be transferred to CP/M. 

SxeO Y - KEYBOARD BC80 

This command causes keyboard input to be echoed directly to the video driver and can be used for 
demonstration purposes. An ESCape returns to the Executive, 
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SxeO Z <ADR1> <ADR2> <DATA> - ZERO OR FILL MEMORY 

The memory block from ADRl through AER2 is filled with the byte "DATA". This is useful for setting 
memory to Zero. The end of a file or assembled program will stand out more clearly if memory is 
first zeroed. For test purposes, single instructions can be executed continuously so that bus 
waveforms are more easily interpreted. This is done by filling a block of memory with a repeated 
instruction sequence with a jump to the start of the block so that the program loops continuously. 
3e careful with this command if there are ocher users on the system. 

VIDEO DRIVER 


Version 5.3 of the Executive contains an elaborate video driver. The purpose of the video driver is 
to accept a stream of ASCII codes, and to write them into the screen memory in the proper place , 
interpreting certain non printing control codes in a special way. There are several entry points to 
the video driver. E309H is recommended. The character code to be printed must be in the A 
register. A CALL E009 will cause the character to be printed on the screen at the cursor position. 
All registers will be preserved. 

Control codes are generated by the keyboard by holding the control (CTRL) key down while a letter 
key is pressed. Control codes have values between 3 and 31/ and are 64 less than the codes for the 
corresponding upper case letters. To demonstrate the features of the video driver, type Y after the 
Executive prompt, and any keyboard generated code will be echoed to the video driver. The following 
control codes are interpreted as special functions, ^iile all others are ignored: 


Decimal Hex Control 

Value Value Coda Description 


2 

2 

(~B) 

HCME THE CURSOR 

4 

4 

(~D) . 

CLEAR THE SCREEN AND HCME CURSOR 

5 

5 

(~ S) 

DISPLAY THE CODE IN B REGISTER 

3 

3 

(~H) 

DESTRUCTIVE BACKSPACE (also BACKSPACE key) 

9 

9 

(~I) 

TAB OVER TO THE NEXT 3 MULTIPLE (also TAB) 

10 

A 

TJ) 

LINEFEED (also LF Key) 

13 

D 

(~M) 

CARRIAGE RETURN (also RETURN key) 

14 

c 

(~N) 

TOGGLE CURSOR 

16 

13 

(*P) 

CLEAR TO END CF SCREEN 

17 

11 

TQ) 

CLEAR TO END OF LINE 

18 

12 

(~R) 

CURSOR DCWN 

20 

14 

(~T) 

TOGGLE REVERSE VIDEO 

21 

15 

(~U) 

CURSOR UP 

23 

17 

TW) 

CURSOR LEFT 

24 

ia 

(~X) 

CLEAR TO START CF LINE 

26 

1A 

CZ) 

CURSOR RIGHT 

_7 

13 

ESC 

CUR SCR XY POSITION LEAD-IN or 
TOP CF SCREEN LEAD-IN' 

Experiment with 

the keys. There 

are special keys on the keyboard to generate some of the codes such 

as RETURN, 

TAB 

and linefeed (LF) . If you are using the Vector Graphic Keyboard or Mindless 

Terminal , 

there 

are also keys for the cursor control and BACKSPACE. A few of the functions are not 

self explanatory. 

, A Control D sets the reverse video flag to normal in addition to clearing the 

screen and 

homing the cursor. 

A Control T will then toggle the reverse video flag frcm normal to 

reverse and 

back 

without printing 

on the screen. 

In some cases it is desirable 

to print the symbol for a control code on the screen. This can be 


done in assembly language programs by putting the code for the symbol in the 3 register and calling 
the video driver with Control E (05) in A. Enter the following machine code at FC30H and execute it 
to demonstrate this feature: 06 01 3E 05 34 CD 09 E0 CD 0C E3 C3 02 FC 
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VECTOR GRAPHIC 


QJRSCR X Y POSITIONING 

Many programs utilize randan X Y positioning of the cursor. This is done by outputting a three byte 
sequence to the video driver. The first code is ESC (1BH) followed by the desired X position and Y 
position in hex. The top left corner of the screen is 0, 0. The assembly language sequence IB 40 
08 would cause the cursor to move to line 8, character position 64 on the screen. To send the same 
sequence to the Executive via Microsoft Basic, the following statement would be used: "PRINT 
CHR$ (27) ;CHR$ (X+128) ;CHR$ (Y+128) ; " where X would equal 64 (40H) and Y would equal 08 (08H) . Adding 
the value of 128 to X and Y in this example sets the eighth bit high. This is done to avoid 
Microsoft Basic frcm confusing the values as control codes. This may not be demonstrated using the 
keyboard since ESC causes a return to the Executive. 

The video- driver provides an extensive range of special controls, however, they must be incorporated 
into the software generating the video stream to be meaningful. For instance a piece of software 
that merely echoes all characters as they go into its input buffer will allow cursor motion on the 
screen, but this will probably be meaningless to the software. 


SETTING' TCP CP SCREEN 


The logical top of screen can be set by sending the appropriate codes (escape sequences) to the 
Executive program. To set the top of screen send: ESC DEL (line number) to the Video driver. The 
line number must be expressed in hexadecimal in the range of 0H to 16H (0 to 22 decimal) . 


KEYBOARD CODE CONVERSION - VECTCR GRAPHIC KEYBOARDS 

Due to limitations in the keyboard encoder chip, the [] key on Vector Graphic keyboards is not 
encoded properly. The correct code is generated by a conversion routine in the Executive's CONVERT 
routine. The codes for backslash and tilde are also produced by the control and control shift mode 
of this key. 


[] KEY CONVERSION: 


MODE KEYCODE CONVERTED CODE 


unshifted FI 5B 

shifted El 5D 

control B1 5C 

control shift A1 7E 


ASCII SYMBOL 

C 

1 

\ 


The cursor up key i3 also converted from 60H to 15H which is interpreted correctly by the video 
driver. Room is provided in the routine for up to 15 keycode conversions. Foreign languages 
require additional conversions. It i3- essential that software utilize the Executive conversion 
routine for this reason* 
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0000 



1*4 




0000 

) 



ft 

0000 


1 




* 

0000 

jititMUMlt 




0000 


1 


vixriun executive - version 5.0 

•* 

0000 

1 




0000 


1 


02/01/82 


* 

0000 


an 

BASE 


0000 


> 




* 

E0O0 

1 




0000 



* 




E000 

| JUMP 

TABIE OF 

ENTRY IOINTS 


0000 


1 





E0O0 

1 




0000 

E00O - 

BASE 


uqu 

0E000II 

1 ASSEMBLY AD [HESS 

EO00 C328E0 

BEGIN: 

JMP 

IN IT 

(INITIALIZE ALL 

0000 

E0OO - 

141 


BQU 

0B000II 

jPRCN/UAM ADDRESS 

E003 C30FE2 

GETSTAT: 

JMP 

KEYSTAT 

(FETCH KEYBOARD STATUS 

0000 

0000 > 

CONS 


EQN 

0 

jCONS STATUS PRT 

E006 C314E2 

GETOATA : 

JMP 

KEYDATA 

; FETCH KEYBOARD DATA (NO CONVENT) 

0000 

0001 = 

COtID 


BQU 

1 

ICONS DATA PORT 

E0O9 C310E4 

PUTOATA: 

JMP 

video 

(OUTPUT TO ‘ X'REEN 

0000 

00 IB - 

edcp 


BQU 

1BH 


E00C C302E2 

fXTCONVi 

JMP 

escape 

(Get and convert lata 

0000 

0d04 - 

CIRSCRN 


BQU 

4 


EO0F C319E2 

CONVUATA : 

JMP 

CONVENT 

(CllANACTEIl CONVERSION 

0000 

0040 » 

RPA 


EQU 

4011 

1 RECEIVE FLAG 

E012 C397E0 

V*W4EMTUY : 

JMP 

START 

;WM« ENTRY KNOT 

0000 

0040 “ 

iwr 


BQU 

4011 

(RAM ENABLE PORT 

E01S 

1 




0000 

0000 = 

STIOL 


BQU 

0 

I STATUS POLARITY 

E015 

> TABLE 

ce (XMMANIX, for usart 


0000 

0100 » 

Tl’A 


EQU 

010011 

1 CP/M USER AREA 

E015 

» 




0000 

FhOO » 

SPTI1 


EQU 

0FDD0II 

j STACK POINTER 

E015 00000040 

INITABLE 

D6 

0,0,0, 4011, 0CEI1, 2711 

0000 

FFFD « 

TtMPSPTR 

EQU 

0FFFUI 

iTtMPORARY STACK POINTER 

E019 CE27 





0000 

E800 * 

FLBOOT 


BQU 

OE80UII 

1 FLOPPY BOOTSTRAP 

E01B 

1 




0000 

E802 = 

msboot 


EQU 

0E802H 

iMEGASTCR BOOTSTRAP 

E01B 

1 INIAL1ZATICN 

SUBROUTINE FOR 

USARTS (PtXIT ADU1ESS IN A) 

0000 

FF10 » 

lousy 


BQU 

OFFICII 

(CONTROLLER BUSY 

E01B 

1 




0000 

FOOO »■ 

SCREEN 


BQU 

pin 1 000 H 

(SCREEN LOCATION 

E01B 0606 

INILOOP 

MVI 

B,6 

(NO OF COMMAND bYTES 

0000 

FFFE = 

VIU'OFIAG 

EQU 

OFFFEll 

1 VI DECS BANKS 

E01D 211SE0 


LXI 

II, INITABLE 

(STAiri 1 OF BYTE TABLE 

0000 

FFFF - 

RAMFLAG 


EQU 

0FFFFH 

(RAM BANKS 

£020 4F 


HJV 

C, A 


0000 

F800 - 

COLOSTANT 

BQU 

0FQ30II 

(EXTENDED CP/M ENTRY POINT 

£021 EUA3 

CUT LOOP 

OUTI 


j OUTFIT A BYTE 

0000 


1 





E023 E3 


xnu. 


(DELAY FOB 6 MHZ. 

0000 


. * ftft ft* ft 

* 




E024 E3 


X11IL 



0000 


1 




* 

E025 2 OF A 


■ JRNZ 

ouruxi' 

(SEND NEXT BYTE 

0000 


1 

CUMMANIE J 


ft 

E027 C9 


RET 



0000 


1 




ft 

E02B 

! 




0000 



A 



ft 

E028 F3 

I NIT 

D1 


(MAKE SURE INT fXTWN 

0000 


1 

n 

■ JUMP TO BOOTSTRAP LOADER 

ft 

E029 31FDFF 


LXI 

SP , TtMPSPTR 

(SET STACK TO TIP Of COMMON 

0000 


1 

c 

SSSS FFFF CCCC IXMPARE BLOCKS 

ft 

E02C 

I 




0000 


1 

D 

SSSS FFFF OU1P MEMORY IN HEX (. 

ASCII * 

E02C 

| INITIALIZE USARTS AT PORTS 0 

,3,5,7 

0000 


l 

E 

EXTERNAL COMMUNICATIONS 

ft 

E02C 

I 




0000 


1 

F 

SSSS FFFF DO 

DO 1WO BYTE SEARCH * 

E02C 3E07 


MVI 

A, 7 

(HIGHEST PORT ADDRESS 

0000 


1 

G 

SSSS 00 TO AND EXECUTE 

ft 

E02E CD1BE0 

IIUTPORT* 

CALL 

1NILOOP 

(INITIALIZES PORT 

0000 


l 

II 

111 INI’ SYSTEM 

STATUS 

ft 

E031 D602 


SUI 

2 

(DEOHMEUr TO NEXT ADIilESS 

0000 



I 

PP INPUT F1KM PORT 

ft 

E033 FE01 


CPI 

1 

(CHUCK FOR END 

0000 


1 

J 

CP/M COIB BOOT 

* 

E0 35 20F7 


JRNZ 

initfort 


0000 


1 

K 

LI. LI. SET A BREAKPOINT 

ft 

E037 D340 


OUT 

PORT 

(ENABIE HANK l 

0000 


1 

I. 

TUMP TO IPW RAM AT 0 

ft 

E039 3D 


DCR 

A 


0000 


1 

M 

SSSS FFFF DUOD MOVE BLOCK 

ft 

E03A 32I0FF 


STA 

uuusy 

| CLEAR CY)NTRULI>:it FLAG 

0000 


l 

N 

NON ICSTRIX.TIVE MEMORY TEST 

ft 

E03O 

1 




0000 


1 

0 

PP DO OUTPUT 

TO lORT 

ft 

E0 3D 

i ciio:k 

memory 

BANKS AND PA1CII 

RST 5 

0000 


l 

p 

l.I.LL PROGRAM 

FfcMORY 

ft 

E03D 

1 INITIALIZE PARAMETERS/ FLAGS 

IN AI.L HANKS 

0000 


J 

Q 

SSSS FFFF COMPUTE CHECKSUM 

ft 

E03D 

| CUB.* 

VI LEO BANKS AND WRITE 

MICMIT 

0000 


1 

n 

WWP Z-80 RU 

ISTERS 

ft 

E031) 

» 




0000 



s 

SSSS FFFF Dl) SEARCH FOR SINGLE 

BYTE * 

E03O 0E40 

ugerqiuck: 

MVI 

C, POUT 


0000 


J 

T 

SSSS FFFF TEST MEMORY 

ft 

E03F 0601 


MVI 

B, 1 

(START WITH HANK 1 

0000 


1 

U 

.lUMP TO USER 

AREA AT 10011 

ft 

E041 11FEFF 


LXI 

D, VIDEOFLAG 

(POINT TO VIIEDFLAG 

0000 


1 

V 



ft 

E044 12 


SI AX 

D 

(ZERO VIDEOFLAG 

0000 


1 

w 

BOW WINCH ESTER DISK 

ft 

E045 13 


INX 

D 


0000 


1 

X 

SSSS FFFF LHIOO EXCHANGE BLOCK 

ft 

E046 12 


S1AX 

U 

(ZENO HAMIT AG 

0000 


f 

Y 

KEYBOARD UCIIO 

ft 

E047 ED41 

USEItCIIDCKlO: 

ourp 

B 

(ENABi>: hank 

0000 


1 

Z 

SSSS FFFF DO 

ZERO UR FILL MB40HY * 

E049 210000 


Ul 

11,0 

(CHECK UVJ RAM 
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E04C 

7E 


MOV 

A,M 

;GET BYTE FIX* MEMORY 

0005 D8 

RC 


/TOO SMALL 

E04O 

35 


OCR 

M 

/CHANCE RAM 

E0O6 FE5B 

CPI 

05011 


E04E 

BE 


CMP 

M 

/CHECK IF SAME 

E0Q8 D0 

RNC 


/TOO LARGE 

E04F 

77 


MOV 

M,A 

/ RESTORE RAM 

EBB 9 21CAF4I 

UI 

l!,CMJm 

/IIL - START CT COMMAND TABU 

E050 

2811 


JRZ 

USERQ1OCK20 

(SKIP IF NOT ENABLED 

E0BC F5 

PUGH 

PSW 

/SAVE CHARACTER 

E052 

22EAF8 


SOLD 

XV FLAG 

/ZEROS FLAGS (ORDER DEPEMXiNT) 

E0BD D641 

SUI 

•A' 

/SUBTRACT Aid I BIAS 

E055 

LA 


LDAX 

D 

/GET RAM FLAG 

E0BF 87 

ADD 

A 

/DOUBLE FUR 2 BYTE ADDRESS 

E056 

80 


CRA 

B 

/SET BANK BIT 

E0C0 5F 

MOV 

E,A 


E057 

12 


STAX 

D 

/SAVE N» RAM FLAG 

E0C1 1600 . 

MVI 

D,0 

,DE - INDEX 

E0S8 

3BC3 


MVI 

A,0C3H 

/JUMP 

E0C3 19 

LAD 

D 

/ (IIL) - JUMP ADDRESS 

E05A 

322800 


STA 

28 H 

/RST 5 

E0q4 5E 

MOV 

E,M 

/GET LSBYTE 

E05D 

21D7E6 


u r 

HjDUHPRQiS 

/JUMP ADDRESS FOR RESTART 

E0C5 23 

INX 

II 


E060 

222900 


SHLD 

29H 

/SAVE IN MEMORY AT RST 5 

E0C6 56 

MOV 

D,M 

/GET MSIJYTE ’ 

E063 

2100F0 

USERCHDCK20: 

UI 

H, SCREEN 

/CHECK VIDEO RAM 

E0C7 EB 

xae 


/HL - JUMP ADDRESS 

E066 

7E 


MOV 

A,M 

/GET BYTE FROM MEMORY 

E0C8 FI 

POP 

PSW 


E067 

35 


DCR 

M 

/CHANGE RAM 

E0C9 E9 

PCHL 


/AWAY WE GO 

E068 

BE 


CMP 

M 

/CHOCK IF SAME 

E0CA 

t 



E069 

77 


MOV 

M,A 

/RESTORE RAM 

E0CA 

/ COMMAND TABLE 



E06A 

2812 


JRZ 

USERCJIBCK30 

/SKIP IF NOT ENABLED 

EOCA 

I 



E0GC 

IB 


OCX 

D 

/ (DE) - VIDEO FLAG 

E0CA 97E0 

Q4OTB DW 

START 


0060 

1A 


IXAX 

D 


E0CC 00E8 

DW 

FLUOOT 

1 B 

E06E 

B0 


aiA 

B 

/SET BIT 

EOCE 83E3 

DW 

compr 

»c 

E06F 

12 


STAX 

D 

/SAVE NEW VIDEO FLAG 

E0D0 CBE5 

DW 

I1EXRUL 

lO 

E070 

13 


INX 

D 

/(DE) - RAM FLAG 

E0D2 DCE7 

DW 

EXTCOM 

; E 

E071 

1A 


Lmx 

D 

/GET RAM FLAGS 

E0D4 A2E3 

DW 

Fit® 

I? 

E072 

A0 


ANA 

B 

/MASK BANK WITH RAM BITS 

E0D6 5CE1 

DW 

EXEC 

>0 

E073 

28 09 


JRZ 

USERCHBCK30 

/SKIP IF NOT BOTH VIDEO AND RAM 

E0D8 68E1 

DW 

SYSTAT 

III 

E075 

09 


EXX 


/SAVE ALL REGS 

E0DA EEE3 

DW 

PINPT 

1 1 

E076 

CDFEE0 


CALL 

SIGN. ON 

/DISPLAY SI(N -ON 

E0DC 56E2 

DW 

com 

/J 

E079 

AF 


XRA 

A 

/USE PORT 0 

E0DE C1E7 

DW 

SETBRK 

;K 

E07A 

CD1BE0 


CALL 

INILOCP 

/INITIALIZES KEYBOARD PORT 

E0E0 14E3 

DW 

LOIAM 

lL 

E07D 

09 


EXX 


/RETRIEVE ALL REGS 

E0E2 39E3 

DW 

MOVES 

/M 

E07E 

CB10 

USERCHECK30 : . 

RALR 

B 

/ROTATE BIT UP 

E0E4 61E3 

DW 

HHT 

|N 

E080 

30C5 


JRNC 

userqibckio 

/LOOPS TlfUl ALL BANKS 

E0E6 FDE3 

DW 

rourp 

|0 

E082 

CB10 


RALR 

B 


E0E8 14E6 

DW 

PROGRAM 

/ P 

E084 

ED4 1 


ourp 

B 

/TORN ON BANK l 

E0EA 30E2 

DW 

aiKSM 

;Q 

E086 

3E0E 


MVI 

A, 14 


E0BC CBE6 

DW 

CROSS 

/R 

E088 

CO10E4 


CALL 

VIDEO 

/TOGGLE CURSOR ON 

E0EE AIE3 

DW 

such 

;S 

£088 






E0F0 87E2 

DW 

THEM 

;T 

E088 

2AE7FB 

clrbrk 

U1LO 

DKfTLOC 

/IIL - ADDRESS CP BREAKPOINT 

E0F2 0DE3 

DW 

USER 

;U 

E0BE 

1 1E9FB 


LXI 

D.BRKOOLE 

/DE - INSTRUCTION STORAGE 

E0F4 97E0 

DW 

START 

/V 

E091 

ED53E7FB 


soeo 

BKrTLOC 

/SAVE DE AS BREAKPOINT ADUIESS 

E0F6 02E8 

DW 

Atsixxrr 

i w 

E095 

1A 


IXIAX 

D 

/GET INSTRUCTION 

E0F8 97E0 

DW 

START 

/X 

E096 

77 


HOV 

M,A 

/PUT BACK IN MEMORY 

E0FA 77E2 

DW 

ECHO 

»Y 

E097 


> 




E0FC 28E3 

DW 

ZEHOM 

JZ 

E097 

31D0FB 

START 

1X1 

SP.SPTK 

/INITIALIZE STACK 

E0FE 

1 



E09A 

2100F0 


LXI 

H, SCREEN 

/INITIALIZE TOP OF SCREEN 

E0FE 3E04 

SICW. ON: MVI 

A, 4 


E09U 

220FFB 


SIILO 

TQSCN 


E100 CD10E4 

CALL 

VIDEO 


E0A0 

CO02E5 


CALL 

PROMPT 


E103 




E0A3 

CD02F.2 

KEYFOL 

CALL 

ESCAPE 

/READ KEYBOARD 

E103 21A3F1 

UI 

H.HORIZ* 

5fSCK£EN*19 

E0A6 

28 FB 


JRZ 

KEYPOL 

/LOOP IF NO INPUT 

E106 1I072A 

UI 

D,2A07H 


E0A8 

E65F 


AN I 

5FII 

/CHANGE TO UPPER CASE 

E109 3E7F 

MVI 

A, 07F1I 


E0AA 

2197E0 


UI 

H,ST7urr 

/PUSH RETORN ADDRESS 

E10B CD4CE1 

CALL 

CRBOX 


E0AD 

E5 


PUSH 

ii 


E10E 




EOAE 

FE04 


CPI 

•D'-64 

/CHUCK FOR CLRSCN 

E10E 21F5F1 

UI 

H,HCRIZ* 

6tSCREENL21 

E0U0 

CC10E4 


CZ 

VIIEO 

/ ECHO CLEAnSCN 

El 11 110526 

UI 

D, 26(1511 


E083 

FE41 


CPI 

•A* 

/RANGE CHOCK 

El 14 3EA0 

MVI 

A( 0A01 1 
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PACE 6 


El 16 CD4CE1 

CALI. 

IIU10X 

108 3E09 


MVI 

A, 9 

/FORM RANK NUMBER 

El 19 



EISA 90 


SUB 

B 


El 19 2I47F2 

UI 

11, IlCim* 71 SCREEN! 23 

E1BB CDEAE2 


CALL 

PT2 

/PRINT BANK NIM11F.R 

El 1C 11*1122 

IJCI 

D, 220311 

E18E 79 


MOV 

A,C 

/RETRIEVE BANK BYTE 

El IF 3F.20 

MVI 

A,' * 

E18F 10F0 

C11BCKUSEH20: 

UJNZ 

aiDCKUSER10 

/LOOP T1U11J ALL BANKS 

El 21 CD4CE1 

CAI.L 

IDBOX 

E191 C9 


ner 



E124 



E192 

I 




El 24 CD77E5 

CA1.L 

ptsthg 

E192 

/** CONVERT UP TO 4 HEX 

DIGITS TO BIN 


El 27 1B1A08 

OB 

ESCP.26,0 

E192 

I 




E12A 56454354 

nr 

'VECTOR GRAPHIC EXBClfTIVE 5.0b* 

E192 0E04 

AIIEX 

MVI 

C, 4 

/COUNT OF 4 DIGITS 

E12E 4F522047 



E194 210000 

A11E0 

LXI 

11,0 

/ 16 HIT ZERO 

El 32 52415048 



E197 CD02E2 

AHE1 

CALL 

EfEAI>E 


El 36 404 T2015 



E19A FE20 


CPI 

* * 

/SPACE? 

E13A 58454355 



E19C 28 ID 


JRZ 

stcuvh 


F.13E 54405645 



E19E CDC0E1 


CALL 

HEX 

/CHOCK value: 

EI42 2(1 J52E 1H 



E1A1 38F4 


JRC 

AHE1 


E146 62 



E1A3 29 


DAD 

II 

/MULT 11*16 

El 47 IDOllilOBE 

no 

ESCP.0, 13,1410011 

E1A4 29 


DAD 

II 


E14B C9 

BET 


E1A5 29 


DAD 

11 


E14C 



E1A6 29 


DAD 

II 


E14C E5 

URBOX: PUSH 

II 

E1A7 85 


ADD 

L 


E14D 42 

MOV 

B,D 

E1A8 6F 


MOV 

L,A 


E14E 77 

HlllOXlO: MOV 

M,A 

E1A9 0D 


DCR 

C 

/ 4 DIGITS? 

E14F 23 

IHX 

II 

ElAA 20EB 


JRNZ 

A1IE1 

/KEEP READING 

El 5(1 10FC 

QUIZ 

OR BOX 10 

El AC ED 


xac 



EJ 52 El 

POP 

H 

ElAD 3E20 

SPCE 

MVI 

A,* ' 

/PRINr SPACE 

E153 05 

PUSH 

D 

E1AF C310E4 

PTCN 

JMP 

VIDEO 


El 54 115000 

LXI 

D,80 

E1B2 3E0D 

CRLF 

MVI 

A.eni 

/PPINr CR 

E157 19 

CAD 

D 

E1B4 CD10E4 


CALL 

VIDEO 


El 58 01 

POP 

D 

EIB7 3E0A 


MVI 

A,0AH 


E159 ID 

DC ft 

E 

E1B9 18F4 


JR 

PTCN 


E15A 2OF0 

JRMZ 

drbox 

E1BB 

1 




E15C C9 

BET 


ElBB CD10E4 

spoovr 

CALL 

VIDEO 


E15D 

1 


E1BE 18EC 


JR 

SPCE-1 


E 1 50 

/** EXECUTE THE PROGRAM 

AT WE ADDRESS *** 

E1C0 

1 




El 50 

I 


E1C0 

j CHOCK FOR HEX 

VALUE, 

CONVERT 


El 50 CD/7E5 

EXEi: CALL 

prsirw 

E1C0 FE30 

HEX 

CPI 

•O’ 

/<0 

E160 474FA0 

oni 

'GO ' 

E1C2 D8 


RC 



E163 C092E1 

CAM. 

AIIEX ;READ ADO FROl KB 

E1C3 FE3A 


-PI 

•l* 

1>9 

E166 EQ 

xa« 


E1C5 3009 


JRC 

NUM 


E167 E9 

pan. 

j.JUMP TO IT 

E1C7 E65F 


ANI 

5F1I 

/UPPER 1. LOWER CASE 

E168 

i 


E1C9 FE41 


CPI 

•A’ 

I <A 

E168 

; DISPLAY SYSTfcM 

HARDWARE STATUS 

E1CB D8 


RC 



E168 

1 


E1CC FE47 


CPI 

•G' 

1>F 

E168 CD/4E5 

SYSTATt CAI.L 

RPTSTNG 

E1CE 3F 


CMC 



E168 524 ICO 

urn 

'RAM' 

E1CF D8 


RC 



E16E 3AFFFF 

UA 

RAM FI AG jPOINr TO IjCW RAM FLAG 

E1D0 CD10E4 

NUM 

CALL 

VIDEO 


E171 CD7FE1 

CAI.L 

alDCKUSER /CHECK AND HUNT ACTIVE 

E1D3 D630 


SUl 

48 

/ASCII BIAS 

E174 C074E5 

CALL 

RPTSTOG /BANKS 

E1D5 FEBA 


CPI 

10 

/DIGIT 0-11) 

E177 56494445 

DT11 

'VIDEO' 

E1D7 3802 


JRC 

ALFA 


E17B CF 



E1D9 D607 


SUI 

7 

/ALPHA BIAS 

E17C 3AFEFF 

UA 

VIDE OF LAG ;N(M QIEOK VIDEO FLAG 

E1DB A7 

ALFA 

ANA 

A 

/CLEAR CY 

E17F 0608 

OHCKHSEB: MVI 

B,8 /TEST 8 BANKS 

ElDC C9 


RET 


/WITH CY CLEAR 

E181 IF 

UIRCKtlSEIUOs RAB 

1 ROTATE HIT INTO CARRY 

ElDD 

1 




El 82 30011 

JRNC 

C11DCKHSER20 /SKIP IF NOr SET 

ElDD 

j READ 2 DIGITS 

FROM THE n*EO(.F. 


F.184 4F 

MOV 

C, A /SAVE BANK BrrE 

ElDD 0E02 

A1IE2 

MVI 

C, 2 


e 185 crv\j*;i 

CAI.L 

SPCE j PR I NT SPACE 

E1DF 18113 


JR 

AHEO 
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1E1 / 


1E1 

> short RarriNE 

TO SAVE 

CODE 


1E1 CD92E1 

TAIIEX 


CALL 

AI1EX 


1E4 18 AC 



JR 

A1IEX 


1E6 

I 





1E6 

/** READ FRlM CONSOLE TO REG A **» 


1E6 

1 





1E6 CD02E2 

RDCN 


CALL 

ESCAPE 

/READ KEYBOARD 

1E9 28 FB 



JRZ 

RDCN 


1E8 FE60 



CPI 

6011 


1ED 38C0 



JRC 

PTCN 


1EF EC5F 



AN I 

501 


:1F1 1BBC • 



JR 

PTCN 


1F3 

1 





I1F3 CIXJ2E2 

PAIGE 


CALL 

ESCAPE 


:1F6 FE20 



CPI 

« 1 


I1F8 C0 



RNZ 



I1F9 CD02E2 

PI. 000 


CALL 

ESCAPE 


:1FC FE20 



CPI 

« ■ 


:1FE C2F9E1 



JNZ 

PL OOP 


:201 C9 



RET 



.202 

1 



. 


:202 CIX3FE2 

ESCAPE 


CALL 

KEYSTAT 


:205 C8 



R2 



706 CD17E2 



CALL 

DATAOONV 


1209 FE1B 



CPI 

E9CP 

/ESCAPE 

:20B CA97E0 



JZ 

START 


70E C9 



RET 



20F 

t 





:20F DOO0 

KEYSTAT 


IN 

axe 


1211 E640 



AN I 

RDA 


713 C9 



RET 



714 

1 





714 

/ KEYBOARD 

DATA 

FETCH 



!2H 

1 





714 DBfll 

KEYDATA: 


IN 

COND 

/KEYB0AE51 DATA 

:2 16 C9 



RET 



:2 17 

1 





:217 

/ keyboard 

FETCH AND CODE CONVERSION 


C217 

» 





2217 DO01 

DATAOXA/! 


IN 

COHO 


2219 E5 

CONVERT « 


PIGH 

H 


E21A C5 



POSH 

B 


E21B 010', 00 



LXI 

B, TABLE ND-KTAHL/2 

E21E 2131E2 



LXI 

H,KTABL 


E221 EDM 

LOOP 


CCI 


/COMPARE TABLE 

E223 2806 



JRZ 

FND 


E225 23 



I NX 

H 


E226 EA21E2 



JPE 

LOOP 

/CONT LOOKING 

E229 1801 



JR 

NERD 


S22B 7E 

FRO 


MOV 

A, M 

/NEW CODE 

S22C E67F 

NERD , 


AN I 

701 

/MASK DOWN 

222E Cl 



POP 

B 


S22F El 



POP 

II 


E230 C9 



RET 




S231 I 

E231 / THIS TAUI£ CAN BE EXTENDED IF DESIHED 
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E231 E150 

KTABL 

DO 

0E15DH 

>1 

E233 F150 


DO 

0F158II 

ll 

E235 A17E 


DO 

0A17EII 

r 

E237 B15C 


DO 

001501 

a 

£239 6915 


DO 

06015H 

/CURSOR UP 

E23B B230 - 

TA BLEND 

EQU 

S 


E23B 

1 

ORG 

KTABL4 30 

/ROOM FOR 15 CONVS 

E23B 

1 




E23B 

/ CHECKSUM 

ROUTINE 



E238 CD77E5 

aiKSM 

CALL 

PTSTNG 


E23E 43484B53 


OTH 

•aiKSUM * 


E242 554DA0 





E245 CDE1E1 


CALL 

TAIIEX 


E248 0600 


MVI 

B,0 


E24A 7E 

CHK94LP 

MOV 

A,M 


E24B 80 


ADO 

B 


E24C 47 


MOV 

B,A 


,E24D CD03E3 


CALL 

BMP 


! E250 20F8 


JRNZ 

C11KSMLP 


IE252 78 


MOV 

A,B 


j E253 C3EAE2 


JMP 

FT 2 


;E256 

7 




E256 

/ CP/H COLD BOOT 



E256 

I 




E256 CD77B5 

COLD 

CALL 

PTSTNG 


E259 434F4C44 


DTH 

'COLD BOOT' 


E25D 20424F4F 





E261 D4 





E262 3A00F8 


LEA 

CO LEG TART 


E265 FEC3 


CPI 

0C3H 


E267 CA00F8 


JZ 

00 LEG TART 


E26A CD74E5 


CALL 

RPTSTNG 


E26D 4E4F2053 


DTH 

•NO SYSTEM* 


E271 59535445 





E275 CD 





E276 C9 


RET 



E277 

I 




E277 

1 KEYBOARD 

1 

o 

s 



E277 

1 




E277 CD77E5 

ECHO 

CALL 

PTSTNG 


E27A 4543484F 


OTII 

'ECHO • 


E27E A0 





E27F CD02E2 

BCOLP 

CALL 

E9CAPE 

/LOOK AT KEYBOARD 

E282 C410E4 


CNZ 

VIDEO 

/PRINT IF KEYIRESS 

E285 18F8 


JR 

BC01E 

/CONTINUE I DOPING 

E287 

1 




E287 

1 ** MEMORY TEST HOOT I HE 

«•* 


E287 

» 




E287 CD77E5 

THEM 

CALL 

PTSTNG 


E28A 54455354 


DTH 

'TEST * 


E28E A 0 





E28F CDE1E1 


CALL 

TAIIEX 

/READ ADDRESSES 

E292 015A5A 


LXI 

B,5A5AII 

/INI B,C 

E295 CDC1E2 

CYCL 

CALL 

RNDM 


E298 C5 


PUSH 

B 

/KEEP ALL REGS 

E299 E5 


push 

II 


E29A D5 


POSH 

D 




P AGE 9 


PACK 10 


E29B 

CDC1E2 

TLGP 

CALL 

RNDM 


E2F5 E60F 

BINL 

ANI 

0FH 

(LOW 4 BITS 

E29E 

70 


MOV 

M,B 

(WRITE IN MEM 

E2F7 C630 


ADI 

48 

(ASCII BIAS 

E29P 

CD03E3 


CALL 

BMP 


E2F9 FE3A 


CPI 

58 

(DIGIT 0-9 

E2A2 

C29BE2 


JNZ 

TLOP 

(REPEAT tDOP 

E2FB DA10E4 


JC 

VI LOO 


E2A5 

Dl 


POP 

D 


E2FE C607 


ADI 

7 

(DIGIT A-F 

E2A6 

El 


POP 

II 

(RESTORE ORIG 

£300 C310E4 


JMP 

VI ECO 


E2A7 

Cl 


POP 

B 

(VALUES Of 

£303 

1 




E2A8 

E5 


PUSH 

II 


E303 

( COMPARE ADLR ESSES ANI) 

INLTHMEI/r II 


E2A9 

D5 


PUSH 

D 


E303 7B 

BMP 

MOV 

A, E 


E2M 

CPC1E2 

RLOP 

CALL 

RNOM 

(GEN NEW SOQ 

E304 95 


SUB 

L 


E2AD 

It 


MOV 

A,H 

(READ MEM 

E305 2002 


J1UIZ 

GOUI 


E2AE 

B8 


OIP 

B 

(COMP MEM 

E307 7A 


MOV 

A, D 


E2AF 

C4E1E2 


CNZ 

ERR 

(CALL ERROR RTN 

E308 9C 


SBB 

II 


E2B2 

CD03E3 


CALL 

BMP 


E309 23 

GOON 

INX 

II 


E2B5 

C2AAE2 


JNZ 

RLOP 


E30A C9 


RET 



E2B8 

01 


POP 

D 


E30B 

1 




E2B9 

El 


POP 

H 


E30B 

JUMP TO USER RAM 



E2BA 

3E2E 


MVI 

A,'.' 


E30B CU77E5 

USER 

CALL 

PTOrNG 


E2UC 

CD10E4 


CALL 

VI LEO 


E30E 5450C1 


urn 

•tpa' 


E2BF 

18D4 


JR 

CYCL 


E311 C30001 


JMP 

TPA 


E2C1 


(** THIS 

ROUriNE GENERATES RANDCH HCJB 

Mi 

E314 

1 




E2C1 

C0F3E1 

RHUM 

CALL 

PAUSE 


E314 

1 JUMP TO 

RAM AT 0 



E2C4 

78 


MOV 

A, B 

(LOCK AT B 

E314 CD77E5 

LGRAM 

CALL 

PTSTNG 


E2C5 

E6U4 


ANI 

0B4H 

(MASK BITS 

E317 4C4F2052 


DTII 

•LO RAM* 


E2C7 

A7 


MIA 

A 

(CLEAR CY 

E31B 41C0 





E2C8 

EACCE2 


JPt 

PEVE 

(JUMP IF EVEN 

E31D C 30000 


JMP 

0 


E2CB 

37 


SIC 



E320 

J 




E2CC 

79 

PEVE 

MOV 

A,C 

(LOOK AT C 

E320 

( ZERO OR 

FILL MEMORY WITH A C0U3TANT 


E2C0 

17 


RAL 

(ROTATE CY IN 

E320 CD77E5 

ZERCM 

CALL 

FTSTNG 


E2CE 

4F 


M3V 

C,A 

(RESTORE C 

E323 46494C4C 


DTII 

'FILL * 


E2CF 

78 


MOV 

A,B 

(LOOK AT B 

£327 A0 





E2D0 

17 


RAL 


(ROTATE CY IN 

E328 CDeiEl 


CALL 

TAIIF.X 

(READ ADDRESSES 

E2D1 

47 


MOV 

B,A 

(RESTORE B 

E32B £5 


PUSH 

II 

(SAVE H 

E2D2 

C9 


RET 


(RETURN W NEW B,C 

E32C CDQCE 1 


CALL 

AHE2 

(READ 2 DIGITS 

E2D3 


1 



E32F EB 


XCHS 



E2D3 


j** error 

PRINT OUT ROUTINE 


E330 E3 


XTllL 


(RESTORE 11,1. 

£203 


i 




E331 Cl 


POP 

B 


E203 

C0B2E1 

prwi 

CALL 

ciuf 

(PRINT CH,LP 

E332 71 

ZI.QOP 

H3V 

M,C 

(WRITE INTO MEM 

E2D6 

CDF3E1 


CALL 

PAUSE 

E333 CD03E3 


CALL 

BMP 

(COMP ADD, ItCR II 

E2D9 

7C 


MOV 

A, II 

(PRINT 

E336 C8 


RZ 


(RETURN IF DONE 

E2DA 

CDEAE2 


CALL 

PT2 

(ASCII 

E337 18F9 


JR 

ZLOOP 

(CONTINUE TIL DONE 

E200 

7D 


MOV 

A,L 

j cooes 

E339 

1 




E2UE 

C32BE7 


JMP 

PT2S 

(FOR ADLRESS 

E339 47 

MOVKB 

MOV 

B,A 

(SAVE CODE 

E2E1 


i 



E33A CD77ES 


CALL 

I'TSms 


E2E1 

F5 

EUR 

PUSH 

PSW 

(SAVE ACC 

E33D 4D4F5645 


DTII 

•move * 


E2E2 

CD03E2 


CALL 

PTAD 

(PRINT ADD. 

E341 A0 





E2E5 

78 


MOV 

A,B 

(DATA 

E342 CDE1B1 

MOVENTO 

CAI.L 

TAIIEX 

,-READ ADUl ESSES 

E2E6 

CD2BE7 


CALL 

KT 2S 

(WRITTEN 

E345 E5 


PUSH 

II 


E2E9 

FI 


POP 

PSW 

(DATA READ 

E346 CD92E1 


CAI.L 

A1IEX 


E2EA 

F5 

PT2 

P16II 

PSW 

E349 EU 


xaic 



E2EB 

CDF1E2 


CALL 

BIND 


E34A E3 


XT1IL 


jtlACK TO NiIlMAI. 

E2EE 

FI 


POP 

PSW 


E34B 4E 

M1XXJP 

MOV 

C,M 


E2EF 

1804 


JR 

BINL 


E34C E3 


xtiil 



E2F1 

IF 

B1IU1 

RAR 


(SHIFT RHT 4 BITS 

E34D 78 


MOV 

A,B 


E2F2 

IF 


RAH 


E34E FE4D 


CPI 

*M' 


E2F3 

IF 


RAR 



E350 2804 


JIIZ 

NEXHI 


E2F4 

IF 


HAll 



E352 7E 


MOV 

A, M 
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E353 E3 


XT11L 


E3B0 E5 


PUSH 

H 

/SAVE II 

E35 4 77 


MOV 

H,A 

E3BE aoacei 


CALL 

A1IE2 

/READ 2 DIGITS 

E355 E3 


XTHL 


E3C1 E8 


XCIIG 


)IK(X£,D=F 

E356 71 

NEXC1I 

MOV 

H,C 

E3C2 45 


MOV 

B,L 

/PUT OOOE IN B 

E357 23 


I MX 

H 

B3C3 El 


POP 

II 

/RESTORE 11 

E358 E3 


XTHL 


B3C4 FI 


POP 

PSW 


E359 CD03E3 


CALL 

BMP 

E3C5 FE53 


CPI 

•S' 


E35C CA97E0 


JZ 

START 

E3C7 F5 


PUSH 

PSW 


E35F 18EA 


JR 

MLOOP 

E3C0 2807 


JRZ 

CONT 


E361 

/ NON DESTRUCTIVE MB40RY TEST 

E3CA E5 


POSH 

II 


E361 CD77E5 

ncmt 

CALL 

PTSTHG 

E3CB CD00E1 


CALL 

AIIE2 

/READ 2 DIGITS 

E364 40454020 


DTH 

'MB4 TOP' 

E3CE EB 


xao 



E368 544FD0 




E3CF 4D 


MOV 

C,L 


E368 210000 


UI 

H,0 | START AT ZERO 

E3O0 El 


POP 

II 


E36E 4E 

MO LOP 

MOV 

C,H 

E3D1 7E 

CONT 

MOV 

A,M 

/READ MEMORY 

E36F 06FF 


MVI 

B.0FF1I 

E3D2 B8 


CMP 

B 

/COMPARE TO CODE 

E371 70 


MOV 

M,B 

E303 2012 


JRNZ 

SKP 

/SKIP IF NO COMP 

E372 7E 


MOV 

A f M 

E3D5 FI 


POP 

PSW 

/FETCH CONTROL 

E373 B8 


CMP 

B 

E3D6 FE53 


CPI 

’S' 


E374 C27CE3 


JNZ 

ERRJP j PRINT ERROR 

E3D6 F5 


PUSH 

PSW 


E377 0600 


MVI 

B,0 

E309 2806 


JRZ 

OB CP 


E379 70 


MOV 

M,B 

E3DB 23 


IHX 

II 


E37A 7E 


MOV 

A,M 

E3DC 7E 


MOV 

A,M 


E37B B8 


CMP 

B 

E3D0 2B 


OCX 

H 


E37C C2E1E2 

ERRJP 

JNZ 

ERR 

E3EE B9 


CMP 

C 


E37F 71 


MOV 

M,C 

E3DF 2006 


JRNZ 

SKP 


E38 0 2 3 


INX 

H 

E3E1 23 

CBCP 

INX 

II 


E301 18EB 


JR 

NDLOP 

E3E2 7E 


MOV 

A,M 

/READ NEXT BYTE 

E383 

1 COMPARE 

TOO BLOCKS CF MEMORY 

E3E3 28 


DCX 

H 

(DECR AD OR ESS 

E383 CD77E5 

COM PH 

CALL 

PTSTNG 

E3E4 CDE1E2 


CALL 

ERR 

/PRINT COOES 

E38 6 4 3 4D50A0 


DTH 

•CMP • 

E3B7 CD03E3 • 

SKP 

CALL 

BMP 

/CHECK IF DONE 

E38A CEE1E1 


CALL 

TAHEX 

E3EA 20E5 


JRNZ 

OOHT 

/BACK FOR MORE 

E38D E5 


PUSH 

H 

E3BC FI 


POP 

PSW 


E38E CD92E1 


CALL 

AH EX 

E3ED C9 


RET 



E391 E8 


XCHG 


E3EE 

I 




E392 7E 

VMLOP 

MOV 

A,M 

E3EE 

/ ITPITT DATA 

FROM A PORT 


E393 23 


IHX 

II 

E3EE CD77E5 

PI HPT 

CALL 

prsnc 


E394 E3 


XTHL 


E3F1 494EA0 


DTH 

'IN ’ 


E395 BE 


CMP 

M 

E3F4 CD00E1 


CALL 

AIIE2 

/READ 2 DIGITS 

E396 46 


MOV 

B,M 

E3F7 4B 


MOV 

C,E 


E397 C4E1E2 


are 

ERR 

E3F8 ED78 


I HP 

A 


E39A CD03E3 


CALL 

BMP 

E3FA C3EAE2 


JMP 

PT2 


E39D E3 


XTHL 


E3FD 

1 




E39E 20F2 


JRMZ 

VMLOP 

E3FD 

< 

e 

i 

PORT 



E3A0 FI 


POP 

PSW 

E3FD CD77E5 

pocrrp 

CALL 

PTSTNG 


E3A1 C9 


RET 

• 

E400 4F5554A0 


DTH 

•our ' 


E3A2 

1 SEARCH 

FOR SPECIFIC 

CODES 

> E404 CDOOE1 


CALL 

AHE2 

/READ 2 DIGITS 

E3A2 F5 

FI tO 

PUSH 

PSW 

E407 CD00E1 


CALL 

AIIE2 

/READ 2 DIGITS 

E3A3 CD77E5 


CALL 

PTSTHG 

E40A 4D 


MOV 

C,L 


E3A6 46494E44 


DTH 

•FIMO-2 ' 

E40B ED59 


OUTP 

E 


E3AA 2D32A0 




E40O C9 


RET 



E3AD 1800 


JR 

5RC1IENT 

E40E 

i 




E3AF F5 

SRCH 

POSH 

PSW 






E3B0 CD77E5 

r 

CALL 

PTSTHG 






E3B3 46494E44 


urn 

•FIMO-1 • 






E3B7 2D31 A0 









E3BA CDeiEl 

snciiEJir 

CALL 

TAHEX 
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E40E 

J 




E439 5F 

MOV 

E,A 



E40E 

1 




E43A 1600 

MVI 

0,0 



E40E 

1 



* 

E43C 19 

DAD 

D 



E40E 

1 VIDEO POWER FOR 

FLA Si WII TER II 

* 

E43D 5E 

MOV 

E,M 



E40E 

1 



* 

E43E 2160E4 

LX I 

H, POL 



E40E 





E 4 4 1 19 

DAD 

D 



E40E 

1 




E442 E3 

XTIIL 


jIlDCOVEH II 

E40E 





E443 C9 

RET 


jEXUIUTE ROUTINE 

E40E 

1 



* 

E444 

; CONTROL CHARACTER JUMP TABLE 



E40E 

1 CONTROL CODE COMMANDS 


* 

E444 6E 

TABL UO 

RET- 1 CL 

10 


E40E 

1 (B) 

iioie amsai 


k 

E445 6E 

DO 

RET- ICL 

JA 


E40E 

1 (») 

clear screen 


k 

E446 63 

DO 

iicme:-icl 

|B 

iknf. cursor 

E40E 

J (E) 

PRINT CONTROL CODE 

k 

E447 6E 

DO 

RET-ICL 

JC 


E40E 

1 OH 

BACKSPACE 


k 

E448 60 

DO 

FORM-PCI. 

ID 

CLEAR SCREEN 

E40E 

J (I) 

TAB 


k 

E449 00 

DO 

ICL-PCL 

I E 

PUT 0>I|1U)L 

E40E 

i u> 

LINEFEED 


k 

E44A 6E 

CO 

RET-ECL 

1 F 


E40E 

1 (M) 

CARRIAGE RETURN 


* 

E44B 6E 

DO 

IlET-lCl. 

|C 


E40E 

J (H) 

NO CURSOR 


* 

E44C 42 

no 

DOACKSP-PCI. 

|H 

BACKSPACE 

E40E 

1 (P) 

ClEAR TO END OF 

SCREEN 


E14D 59 

DO 

TAB -ICL 

|I 

TAB OVER 

E40E 

l (Q) 

CUC AR TO END OF 

LINE 

* 

E44E 12 

DO 

LIIF-PO. 

1 J 

line: FEED 

E40E 

-I (R) 

CURSOl DOWN 


• 

E44F 6E 

DO 

RET-ICL 

|K 


E40E 

l (T) 

TOGGLE REVERSE VIDEO 

* 

E450 6E 

DO 

RET-ICL 

|L 


E40E 

» (U) 

CURSOl UP 


k 

E451 6A 

DO 

CIlfT-ICL 

,M 

CARRIAGE RET 

E40E 

1 (W) 

CURSOl LEFT 


k 

E452 71 

DO 

RETl 1-PCL 

|N 

NO OURSlIl 

E40E 

1 (X) 

CU'AR TO START 

OF LINE 


E453 6E 

DO 

RET-ICL 

|0 


E40E 

1 (Z) 

cunsai right 



E454 9E 

DO 

C1.END-ICL 

|P 

CUl .‘/ll It) ENU 

E40E 

1 ESC 

XY POSITION LEAD-IN 

k 

E455 A3 

DO 

CLL1ME-PCL 

;Q 

CUl LINE TO END 

E40E 

1 



k 

E456 12 

DO 

LINF-PCL 

;R 

CUR SUl IXVfll 

E40E 




kkkkk 

E457 6E 

CO 

RET-PCL 

|S 


E40E 

I 




E458 76 

CO 

TV IDF'- PCL 

|T 

TOGGIS VIDEO 

E40E 

s VIDEO BOARD PARAMETERS 


E459 60 

DO 

cinisijp-rcL 

|U 

cuusai UP 

E40E 0050 « 

nauz 

BQU 

80 

|NO. OF CHARACTERS 

E45A 6E 

DO 

RLT-PCL 

|V 


E40E 0018 = 

VERT 

EQU 

24 

}N0. OF LINES 

E45B 50 

DO 

BACKSP-ICL 

|W 

OJRSai l£FT 

E40E 

1 




E45C E8 

IB 

CLSTUT-ICL 

|X 

CUl START CF LN 

E40E 3E14 

TV1DEO 

MVI 

A,'T'-64 

j TOGGLE VIDEO 

E45D 6E 

DO 

RET-ICL 

I* 


E410 

1 




E45E 06 

DO 

EOL-PCI. 

iz 

OJHSCn RIGHT 

E410 F5 

VIDEO 

PUSH 

PSW 


E45F C3 

DO 

LEDIN-lCl. 

ll 

ESC-XY IEADIN 

E41 1 C5 


PUSH 

B 


E460 

J 




E412 1)5 


PUSH 

D 


E460 

1 PRINT CUDE IN B REGARDLESS 



E411 E5 


PUSH 

II 


E460 48 

PCL MOV 

C,B 



E414 E67F 


AN I 

0701 

jMASK OFF ftjBIT 

E461 

1 PRINT THE CHARACTER 

ON 11 IE SCREEN 



E416 4F 


MOV 

C, A 

jPOT CHAR IN C 

E461 3ADDFB 

PRINT LDA 

VFL 



E417 CUECE4 

OISPL 

CALL 

LIFTCUHS 

I ERASE CURSOR 

E464 A9 

XI IA 

C 



E41A 3AEAFU 


LDA 

XYFIAG 

jGET POSITIONING FLAG 

E465 77 

MOV 

M,A 



E41D A 7 


ANA 

A 

jClIFX-'K IF TRUE 

E466 

j EOL CHECKS THE CURS 

ros for e:nd if - 

LINE 


E41E 280A 


JRZ 

NOXY 

|SKIP IF FAi.SE 

E466 3ADBFB 

EOL IJ1A 

CURICS 



E420 10 


DOR 

A 

{DECREMENT FLAG 

E469 3C 

INI 

A 



E421 32EAFB 


STA 

XYFIAG 

(SAVE NEW VALUE 

E46A FE50 

CPI 

HilllZ 



E424 CA30E5 


JZ 

YPOS 

jY IF SECOND VALUE 

E46C 305D 

JRC 

TF.UI1ET 



E427 CJ2AE5 


JMP 

XPOS 

; ELSE X 

E46E AF 

XI IA 

A 



E42A 79 

NOXY 

MOV 

A,C 

; RECOVER CHARACTER 

E46F 32DDFD 

STA 

CURPOS 



E42U FE20 


CPI 

1 1 

1 PRINTING CODE? 

E472 

1 MOVE IN 1 LINE 




E420 F261E4 


.JP 

PRINT 


E4/2 3A0CFU 

LINF LDA 

1. 1 MENU 



E430 FE1C 


CPI 

ICL-TABL 

{TOO I AIDE? 

E475 FE17 

CPI 

vEirr-i 



E432 F2CEE4 


JP 

RET 


E477 2021 

JIIHZ 

Nadu. 



E435 E5 


PUSH 

II 

{CURSOR IN MEMORY 

E479 

J SCROLL UP ONE line: 




E436 2144E4 


lxi 

ll.TABL 

jTAULF. START 

E479 215000 

SCRCH.L UI 

il.liair/ 
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I 


PACE 16 


E47C ED5BDFFB 


LCED 

TOGCN 

E4D9 EE80 


XRI 

8011 


E480 19 


DAD 

D 

E4D0 32DOFB 


STA 

VFL 


E481 EDA0 

9CRL 

EDI 


E40e 18EE 


.JR 

RET 


E483 EDA0 


LDI 


E4E0 

» 




E405 7C 


MOV 

A, 11 . 

E4E0 

{ MOVE THE 

CURSOR UP 



E486 FEP7 


CPI 

HOR I Z » VE RH SCREEN/2 56 

E4E0 3ADCFB 

CURSUP 

LIA 

LINENO 


E438 20F7 


JRNZ 

90 RL 

E4E3 A7 


ANA 

A 


E48A 7D 


MOV 

A,L 

E4E 4 28 E8 


JRZ 

RET 


E48B FE80 


CPI 

IIOR I Z « VERTT SCREENt 0 FRI 

E4E6 3D 


DCR 

A 

\ 

E48D 20P2 


JRNZ 

9CRL 

E4E7 32DCF8 

5TUU.N 

STA 

L INDIO 


E48F 3ADCF8 


LEA 

LINE NO 

E4EA 18E2 


JR 

RET 


E492 

{ ERASE BOTTOM LINE 


E4EC 

1 




E492 EB 

EBOTL 

xac 


E4BC 

i CALCULATE MEM ADD FROM CURSOR POSITION 

E493 0650 


MVT 

B.HORIZ 

E4EC 

f 




E495 3620 

ELOP 

HVI 

*4,' ' 

E4BC 3ADCFB 

LIFTCURS 

LEA 

LINENO 

{GET CURRENT LINE 

E497 23 


I NX 

II 

E4EF CD67E5 


CALL 

CAICULATELINE 

{GET MEMORY ADDRESS FOR LINE 

E498 05 


OCR 

B 

E4F2 ED5BDBFB 


LDED 

CURPOS 

{GET POSITION ON LINE 

E499 20FA 


JRNZ 

ELOP 

E4F6 1600 


HVI 

D,0 

{DE =* X POSITION 

E49D 30 


OCR 

A 

E4F8 19 


CAD 

D 

{HL = CURSOR POSITION 

E49C 3C 

NOGCRL 

INR 

A 

E4F9 7E 


MOV 

A,H 

;GET CHARACTER 

E490 320CFB 


STA 

LINE HO 

E4FA EE80 


XRI 

8011 

{REVERSE VIDEO 

E4A0 182C 


JR 

RET 

E4FC 77 


MOV 

M,A 

{PUT D1AR BACK 

E4A2 

1 



E4FD C9 


RET 



E4A2 

; ERASE BEFORE BACKSPACING 

E4FE 

) 




E4A2 3620 

DBACKSP 

MVI 

M,20H 

E4FE 

; CLEAR TO 

EH) OF SCREEN 


E4A4 3ADBFU 


LEA 

cimpos 

E4FE 

» 




E4A7 A7 


ANA 

A 

E4FE CD1AE5 

CLEND 

CALL 

WISPC 


E4A8 2824 


JRZ 

RET 

E501 18CB 


JR 

RET 


E4AA 30 


DCR 

A 

E503 

; CLEAR TO 

EH) OF LINE 



E4AB 28 


OCX 

H 

E503 3ADBFB 

CLLINE 

LDA 

CURPOS 


E4AC 3620 


MVI 

M,' ' 

E506 3620 


MVI 

H,' * 


E4AE 1818 


JR 

TABRET 

E508 23 


I NX 

11 


E4B0 

1 MOVE THE CURSOR BACK 


E509 3C 


Il« 

A 


E4D0 3AD0F8 

BACKS P 

LDA 

CURPOS 

E50A FE50 


CPI 

horiz 


E4B3 3D 


DCR 

A 

E50C 20F8 


JRNZ 

CLLINEO 


E4B4 F2CBE4 


JP 

TABRET 

E50E 18BE 


JR 

RET 


E4B7 1811 


JR 

CRET 

E510 

j CLEAR THE SCREEN 



E4B9 

1 TAB OVER 

TO THE NEXT 

CD 

g 

5 

•3 

G 

E510 2100F0 

CLEAR 

LX I 

II, SCREEN 


E4B9 3ADBFB 

TAB 

LOA 

CURPOS 

E51 3 22DFFB 


SIILD 

TOGCN 

{SET TCP OF SCREEN 

E4BC F607 


an i 

7 

E516 AF 


XRA 

A 


E4BE 18A9 


JR 

EOL4 3 

E517 32EAFB 


STA 

XYFLAG 

{ZERO XY LEAD-IN FIAG 

E4C0 

; CI.EAR THE 

.SCREEN AND 

HOME UP 

E51 A 3620 

WRSPC 

MVI 

M,' ' 


E4C0 CO10E5 

FORM 

CALL 

CLEAR 

E51C 23 


INX 

II 


E4C3 AF 

IICHE 

XHA 

A 

E51D 7C 


MTV 

A, II 


E4C4 320CFH 


STA 

LINENO 

E51E FEF8 


CPI 

SCREEN *2048/2 56 


E4C7 32DOFB 


STA 

VFL {CI.R VI D FI AG 

E520 20F8 


JRNZ 

WRSPC 


E4CA 

{ CARRIAGE 

RETURN 


E522 C9 


RET 



E4CA AF 

citer 

XHA 

A 

E523 

1 




E4CB 32DBFH 

TABRET 

STA 

CURPOS 

E523 

1 PROCESS 1 

LEAD IN CODE 



E4CE 

1 RETURN TO 

THE CALLING 

ROUTINE 

E523 3E02 

LEDIN 

MVI 

A, 2 


E4CE 0*X'E4 

RET 

CALL 

LIFPCURS 

E525 32EAFB 


STA 

XYFI-AG 


E4D1 El 


POP 

II 

E528 18A4 


JR 

RET 


£41)2 01 


TOP 

D 

E52A 

i SET X AND y CtniSUI POSITIONS 


E4D3 Cl 

( 

POP 

B 

E52A 79 

X1*0S 

MOV 

A ,C 

{GET X POSITION 

E4D4 FI 


POP 

PSW 

E52B FE7F 


CPI 

7F1I 

{QIDCK FOR 07FH 

E4D5 C9 


RET 


E52D 2005 


JRNZ 

XPOG10 

{SKIP IF NOT 

E4D6 3ADOFB 

TVI OF 

LEA 

VFL 

E52F 32EBFB 


STA 

TOPF’I-AG 

{SET TOTFIAG 
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E532 

189A 


JR 

RET 

j RETURN 

E58d C9 




RET 


E534 

FE5H 

XPOSIO: 

CPI 

iiauz 


E58C 

1 





E536 

38 9 3 


JRC 

TABRET 


E59C 7E 

WLMP2 



MOV 

A.M 

E538 

3E-1F 


MVI 

a,hgriz-i 

{ SET TO MAX 

E58D 47 




MOV 

B, A 

E53A 

188F 


JR 

TABRET 


ESSE 3E05 




MVI 

A, 'E*-64 

E53C 


1 




E590 CD10E4 




CA1.L 

VIDEO 

E53C 

3AtHFB 

YPOS 

LOA 

TCP FI AG 

(GET TOP SCREEN SEr FLAG 

E593 CD01E3 




CALL 

BMP 

E53F 

B7 


aiA 

A 

) CROCK IF TRUE 

E596 C8 




R2 


E540 

2012 


JRNZ 

TOPSCREEN 

{SET TOP OF SCREEN 

E597 0D 




DCIl 

C 

E542 

79 


MOV 

A,C 


E598 F8 




IM 


E543 

FE18 


CPI 

vert 


E599 18F1 




JR 

WIMP2 

E545 

38A0 


JRC 

STORIJI 


E590 

{ HCME 

CURSOR, 

PRINT *A1)1II* 

£547 

3E17 ’ 


HVI 

A, VERT-1 

(SET TO MAX 

E590 CD74E5 

UCMEC 



CAI.L 

RPTSTNG 

E549 

189C 


JR 

STORLN 


E59E 14 




DU 

•T*-64 

E54B 


I 




E59F 41444452 




urn 

•AUDI ' 

E54B 

AF 

clstrt 

XRA 

A 


E5A3 AO 






ES4C 

3 21713 FB 


STA 

CURPOS 


E5A4 0600 




MVI 

B,0 

E54F 

CDECE4 


CALL 

LIFICURS 


E5A6 3E18 




MVI 

A, 24 

E552 

18AF 


JR 

CLLINE 


E5A8 32DEFB 




STA 

WIDTH 

£554 






E5AB C9 




RET 


E554 


1 SET TOP 

OF SCREEM TO LINE SPECIFIED BY A 

E5AC 

( MAKE 

A 

I4JLER 

FOR HEX 

DIMI> 

E554 


1 




E5AC 78 

HEXRULER 


MOV 

A,B 

E554 

AF 

TCPSCIIEEN: 

XRA 

A 


E5AD FE10 




CPI 

16 

E555 

32EBFU 


STA 

TUP FLAG 

j RESET FLAG 

E5AF 2806 




JRZ 

HEXHCT 

E558 

79 


MOV 

A, C 

(GET LINE NUMBER 

E5Q1 CU2BE7 




CAI.L 

PT2S 

E559 

FE17 


CPI 

VERT-1 

{RANGE aiDCK 

E5B4 04 




IUt 

B 

E550 

D2CEE4 


.jnc 

RET 

{RERUN IF LINE >- VERT 

£505 18F5 




JR 

IIEXHUIEH 

E55E 

CD67E5 


CALL 

CALCIILATELINE 


E5U7 

( EXTEND 

FOR ASCII 


E561 

22DFFB 


SI1LD 

TOSCM 

j SAVE NEW TOP OF SCREEN 

E5B7 CnADEl 

REXRCT 



CALL 

SPCE 

E564 

C3CEE4 


JMP 

RET 


E5BA CUADE1 




CAI.L 

SPCE 

E567 


1 




E50D 0600 




MVI 

B,0 

ES67 


j FINE ADIIIESS 

CALCULATION (LINE 

IN A) RETURNS ADDRESS IN IIL 

E5BF 78 

ItEXRLP 



MOV 

A,B 

E567 


j OPTIMIZED AT 

BOTTOM 


E5C0 re 10 




CPI 

16 

£567 


I 




E5C2 C8 




RZ 


E567 

2180F7 

CALCULATELIHE: 

LXI 

H,RORIZ*VERT+SCREEN (ASSUME LAST LINE 

E5C3 E60F 




AN I 

0FH 

E56A 

1 1B0FF 


LXI 

D.-ncniz 

}DE “ -(CHAR/LINE) 

E5C5 CDF5E2 




CAI.L 

BINL 

E56D 

3C 

CALC LOOP i 

I M3 

A 

{ I NCR LINE NUMBER 

E5C8 04 




nn 

B 

E56E 

19 


DAD 

D 

{SUBTRACT 1 LINE 

E5C9 18F4 




JR 

ItEXRLP 

E56F 

FE18 


CPI 

VERT. 

(CHECK IF DONE 

ESCB 

( REX DUMP ROUTINE 


E571 

20FA 


JRNZ 

CALCLOOP 

{LOOP if Nor 

ESCB CD77E5 

HEXRUi. 



CALL 

PTSRK 

E573 

C9 


RET 


{RETURN WITH ADDRESS 

E5CE 44554D50 




urn 

‘DUMP ' 

E574 


I 




E5D2 Afl 






E574 


{ PRINT A 

STRING 


E5D3 CDEIE1 




CALL 

TM1EX 

E574 


1 




E5D6 Q)9UE5 




CALL 

IICMEC 

E574 

C13U2E1 

RPTSTNG 

CALL 

CRI.F 

(CRLF FIRST 

E5D9 CDACE5 




CAI.L 

HKXlUllElt 

£577 

E3 

PTSTNG 

XTH1. 


{GET STRING K) INTER 

E5DC CD0EE4 




CALL 

TV1DEO 

E570 

7E 


MOV 

A, M 

{GET aiAR 

E5DF CD03E6 




CAI.L 

Sin'SCULl. 

£579 

23 


I NX 

II 

{INCH POINTER 

E5E2 CDD1E2 

HLP1 



CALL 

i'TAD 

E57A 

E3 


XTtlL 


(PUT POINTER BACK 

E5E5 E5 




PUGH 

II 

E57B 

A7 


ANA 

A 

{ZERO CARRY 

E5E6 D5 




PUGH 

D 

E57C 

CD10E4 


CAM. 

VIDEO 

{PRINT IT 

E5E7 OE10 




HVI 

C, 16 

E57F 

F8 


IW 


( RERUN IF NUIAT1VE 

E5E9 7E 

IIIP2 



MOV 

A, M 

£580 

18F5 


JR 

ptstnc 

(REPEAT IF HOT 

E5EA CD2UE7 




CAI.L 

l'T21> 

E582 


1 




E5ED 23 




I NX 

II 

£502 

C074ES 

PROMPT 

CALL 

RPTSTT4J 


E5EE 01) 




DCH 

c 

£505 

45786563 


nni 

'Exoc> * 


E5EF C2E9E5 




.JNZ 

HIJ’2 

£509 

1EA0 





E5F2 01 




POP 

1) 
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PACK 20 


E5F3 El 


POP 

II 


E66D EE01 

XHI 

1 

E5F4 SCOP 


MVI 

C, 15 


E66F 201F 

JRNZ 

RTRTN U 

ESF6 CDADE 1 


CALL 

SPCE 


E671 1818 

JR 

CSRT 

E5P9 CDADE 1 


CALL 

SPCE 


E673 17 

LSNIBL RAL 


E5FC CDflCES 


CALL 

VCMP2 


E674 17 

RAL 


E5FP FADFE5 


JM 

HLP1-3 


E675 17 

RAL 


E602 C9 


RET 



E676 17 

RAL 


E603 

; CHECK TO 

SET SCROLL 

R3INT 


E677 E6F0 

ANI 

0F0II 

E603 3ADEFB 

SET3CRLL 

LOA 

WIDTH 


E679 B1 

aiA 

C 

E606 30 


OCR 

A 


E67A 0F 

RRC 


E607 320EFB 


STA 

WIDTH 


E67B 0F 

RIC 


E60A 2007 


JRNZ 

CTBCRL 


E67C 0F 

RRC 


E60C 8150F0 ' 


LX I 

B,SCREEN»50H 

l 2ND LINE 

E67D 0F 

RRC 


E60F ED43DFFB 


SB CD 

TOGCW 

1 SCROLL POINT 

E67E 18E9 

JR 

RD4EM 

E613 C9 

CT9CRL 

RET 



E680 

1 MOVE UP ONE LINE 


E614 

l 




E6B0 11F0FF 

csup ui j 

D,-16 

E614 

1 PROGRAM MEMORY 



E683 19 

DAD 

D 

E614 CD77E5 

PROGRAM 

CALL 

PTSTNG 


E684 1809 

JR 

RTRTN 

E617 50524F47 


DTH 

•PROGRAM ' 


E686 

; MOVE DOWN ONE LINE 


E61B 52414DA0 





E686 111000 

CSDN UI 

D,16 

E61F CD92E1 


CALL 

AH EX 

;ADLR IN HL 

E689 18F8 

JR 

CSUPC3 

E622 ED53E1FB 


soeo 

TCURPOS 


E6BB 

1 MOVE RIGHT CHE SPACE 


E626 CD9BE5 


CALL 

HCMEC 

} PRINT "ADCR" 

E680 23 

CSRT INX 

H 

E629 CDACE5 


CALL 

IIEXRULER 


E68C 1801 

JR 

RTRTN 

E62C CD0EE4 


CALL 

TVIDEO 


E68E 

| MOVE LEFT ONE SPACE 


E62F A F 


XRA 

A 


E68E 2B 

CSLT DCX 

H 

E630 32DEFB 


STA 

WIDTH 


E68F 

1 


E633 C09CE6 


CALL 

PRT1LIME 

; PRINT LINE CONT H 

E68F AF 

RTRTN XRA 

A 

E636 CD02E2 

POLLOOP 

CALL 

ESCAPE 


E690 32DEFB 

STA 

WIDTH 

E639 CDC0E1 


CALL 

HEX 


E693 22E1FB 

SHLD 

TCURPOS 

E63C 2AE1FB 


LHLD 

TCURPOS 


E696 3E15 

UPAROW MVI 

A, 'U'-64 

E63F 301A 


JRNC 

MOLHEM 


E698 CD10E4 

CALL 

VIDEO 

E641 

1 CONTROL COIK TABLE 



E696 1896 

JR 

POLLQCP-3 

E641 FE20 


CPI 

• i 


E69D 

1 PRINT A LINE CONTAINING ((H)) 

E643 2846 


JRZ 

CSRT 


E690 2AE1FB 

PRTILINE LHLD 

TCURPOS 

E645 FE08 


CPI 

8 


' E6A0 E5 

PUSH 

H 

E647 2845 


JRZ 

CSLT 


E6A1 D1 

POP 

D 

E649 FE12 


CPI 

•R'-64 


E6A2 7D 

MOV 

A, L 

E64B 28 39 


JRZ 

CSDN 


E6A3 F60F 

cm 

oni 

E64D FE15 


CPI 

•U'-64 


E6A5 5F 

MOV 

E,A 

E64F 282F 


JRZ 

CSUP 


E6A6 E6F0 

ANI 

0F0II 

E651 FE17 


CPI 

•W'-64 


E6A8 6F 

mov 

L,A 

E653 2839 


JRZ 

CSLT 


E6A9 CDe2E5 

CALL 

HLPI 

E655 FE1A 


CPI 

•Z'-64 


E6AC 

1 NOW PITT CURSOR WHERE 

IT 00 ES 

E657 2832 


JRZ 

csirr 


E6AC CDECE4 

CALL 

LIFTCURS 

E659 18DB 


JR 

POLLOCJP 


E6AF 2AE1FB 

LJILD 

TCURPOS 

E6SB 

1 MODIFY A 

Mmony location 


E6B2 7D 

MOV 

A, L 

E65B 2AE1FB 

MOOMEM 

LHLO 

TCURPOS 


E6B3 E60F 

ANI 

0FH 

E65E 4F 


MOV 

C,A 


E6B5 6F 

MOV 

L,A 

E65F 3ADEFB 


LOA 

WIDTH 


E6B6 3E05 

MVI 

A, 5 

E662 A7 


ANA 

A 


E608 2D 

PLCPi OCR 

L 

E663 7E 


MOV 

A,M 


E609 FAC0E6 

JM 

pa -•ONT 

E664 2800 


JRZ 

LSNIBL 


E6BC C603 

ADI 

3 

E666 E6F0 


ANI 

0F0II 


E60E 18F8 

JR 

PI.0P1 

E668 81 

( 

OlA 

C 


E6C0 6F 

[OCONT MOV 

L,A 

E669 77 

REMEM 

MOV 

M,A 


E6C1 3ADEFB 

LDA 

WIDTH 

E66A 3ADEFB 


LOA 

WIDTH 


E6C4 85 

ADD 

L 
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PACE 22 


E6C5 

j A » S*3*LtW 




E6C5 32DBFB 


STA 

CURIOS 


E6C8 C3ECE4 


JMP 

LIFTCURS 


E6C8 

( 




E6CB 

1 




E6C8 

; DISPLAY RUUSTERS 



E6CB CD77E5 

DRUGS 

CALL 

ptstog 


EfiCE 52451749 


Dfll 

'REGISTERS' 


E6D2 53544552 





E6D6 D3 





E6D7 

j DUMP REGISTERS AFTER 

ENTRY FIOl RST 7 


E6D7 E3 . 

DUMPRDGS 

XTDL 



E6D0 F5 


PUGH 

PSW 


E6D9 CD31E7 


CALL 

DISPREGS 


E6DC 2B 


DCX 

ti 

(GET BREAK ADO 

E6DO CDD3E2 


CALL 

PTAD 


E6E0 El 


pop 

II 


E6E1 C5 


PUSH 

B 


E6E2 CD06E7 


CALL 

PRTFOGS 


E6E5 Cl 


POP 

B 


E6E6 C0O6E2 


CALL 

PTAD+3 

j PRINT AF 

E6C9 El 


POP 

H 


E6EA 22E3FB 


SI1LD 

IILTEMP 


E6ED COA7E7 


CALI, 

PTIttEE 

(PRINT B D 11 

E6F0 DDES 


PUSH 

IX 


E6F2 El 


POP 

H 


E6F3 CDD6E2 


CALL 

FTAD+3 

(PRINT IX 

E6F6 FDE5 


PUSH 

IY 


E6FB El 


POP 

II 


E6F9 CD06E2 


CALL 

PTAD+3 

(PRINT IY 

E6FC 210008 


LX I 

11,0 


E6FF 39 


DAD 

SP 


£700 22E5FB 


SHLD 

SPTtMP 


E7U3 CD06E2 


CALL 

PTAD + 3 

(PRINT SP 

E706 OB 


EXAF 



E707 F5 


PUSH 

PSW 


E708 El 


POP 

H 


E709 CDOf.E2 


CALL 

PTADI3 


E70C D9 


EXX 



E70D CDA7E7 


CALL 

PTIREE 


E710 D9 


EXX 



E71 1 0A 


LDAX 

B 


E712 CD2UE7 


CALL 

PT2S 


E715 IA 


IIAX 

D 


E716 CU2DE7 


CALI. 

IT2S 


E719 2AE3FB 


LHLD 

HLT1MP 


E71C 7E 


MOV 

A.M 


E71D CD20E7 


CALL 

PT2S 


E720 2AE5FB 


UHD 

SPTtMP 


E723 F9 


SPI1L 



E724 El 


rop 

II 


E725 C006E2 


CALL 

PTAD+3 


E72B C3OBE0 


JMP 

CLRBRK 

( CLEAR BREAKPOINT 

E72B 

J 




E72B CDEAE2 

PT2S 

CALL 

pr2 

(PRINT 2 aiARS 

E72E C3ADEI 


JMP 

SPCK 

(PRINT SPACE 


E731 ( DISPLAY ROUSTED HEADED ON SCREEN 


E731 CD74E5 

DISPRDGS 

CALL 

rptstng 


E734 14 


DO 

•T'-64 


E735 41444452 


DT 

•ADin FTAGS AF 8 

E739 20464C41 





E73D 47532020 





E741 41462020 





E745 20424320 





E749 20204445 





E74D 20202048 


DT 

' IIL 

IX IY 

£751 4C202020 





E75S 49582020 





E759 20495920 





E75D 20205350 





E761 20 





E762 20204146 


DT 

• AF' 


E766 27 


DB 

2711 

l‘ 

E767 20204243 


or 

• BC' 


E768 27 


DB 

2711 


E76C 20204445 


DT 

• DE' 


E770 27 


DB 

2711 


E771 2020484C 


DT 

' IIL* 


E775 27 


DB 

2711 


E776 20404220 


DT 

• go go 

GH gsp • 

E77A 40442040 





E77E 48204053 





£782 5020 





E784 94 


DB 

'T* *64 


E785 C9 


RET 



E786 

1 




E786 

( FRINT FLAGS 




E7B6 015A40 

PRTFLGS 

LX I 

B, 405A11 

|Z 

E789 CDB6E7 


CALL 

MASK FIX! 


E78C 014301 


LX I 

B, 14311 

JC 

E7BF CD06E7 


CALL 

MASKFLG 


E792 014080 


IXI 

B.804DU 

(H 

E795 CD66E7 


CALL 

MAGKFL/; 


E798 014504 


IXI 

B, 44511 

(E 

E79D CDB6E7 


CALL 

MASKFLG 


E79E 014810 


IX 1 

B, 104811 

III 

E7AI CDB6E7 


CALL 

MASKFLG 


E7A4 C3ADE1 


JMP 

spce 


E7A7 

1 




E7A7 

( PRINT BC DE 

1IL IN ORDER 


E7A7 E5 

FTIIHEE 

PUSH 

II 


E7A8 C5 


PUSH 

B 


E7A9 El 


PUP 

R 


E7AA CD06E2 


CALL 

Pl'AD* 3 


E7AD D5 


PUSH 

D 


E7AE El 


POP 

11 


E7AF CDD6E2 


CALL 

PIAD 13 


E7B2 El 


POP 

II 


E7B3 C306E2 


JMP 

PTADll 


E7U6 

I 




E /B6 7D 

MASKFIC 

MOV 

A, I. 


E7B7 A0 


ANA 

B 


E7B8 3E20 


MVI 

A, 21111 


E7BA CA10E4 


M 

VIDEO 
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E7BD 79 


MOV 

A,C 


E7BE C310K4 


JMP 

VI CEO 


E7CJ 

1 




E7C1 

1 

SET BREAKPOINT 



E7C1 

t 




E7C1 C077E5 

SETORK 

CALL 

PTSTUG 


E7C4 42524541 


urn 

•BREAK AT ' 


ETC 8 48204154 





E7CC AO 





E7CU CD92EI 


CALL 

All EX 


E7DO 1A 


LUAX 

D 


E7D1 32E9FB 


STA 

BRKCOOE 


E7D4 ED53E7FB 


SDEO 

BKPTLOC 


E7P8 3EEF 


HVI 

A,0EFH 

/RESTART 5 

E7DA 12 


STAX 

D 


E7DB C9 


RET 



E7DC 

1 




E70C 

1 EXTERNAL COMMUNICATIONS 


E7DC CD77E5 

EXTCOH 

CALL 

FTSTNG 


E7DF 45585420 


DTH 

•EXT OOM ' 


E7E3 434F4DA0 





E7E7 0605 

RECEIVE 

IN 

5 


E7E9 E602 


AN I 

2 


E7E8 280 5 


JR2 

NEXCHR 


E7ED 0604 


IN 

4 


E7EF CD10E4 


CALL 

VI CEO 


E7F2 CD02E2 

NEXCHH 

CALL 

ESCAPE 


E7F5 28 FO 


JRZ 

RECEIVE 


E7F7 0304 


OUT 

4 


E7F9 18EC 


JR 

RECEIVE 


E7FB 


PRT 

'PROGRAM LENGTH 

- ' ,$-BBGINf 1 

E7FB 


one 

BASE+7FFH 


E7FF 50 

VERSION! 

CO 

50H 


£800 

1 




E8O0 

! 

CURSOR STOIAGE 

LOCATiae 


E800 

1 




E800 


CNG 

SPTR10BH 


FBOB 

CURPOS 

D6 

1 

/POS ON LINE 

FBOC 

LI HE NO 

re 

1 

/LINE NUMBER 

F6C0 

VF1. 

re 

1 

/REVERSE VID FLAG 

PBOE 

WIDTH 

re 

1 

/PRINT WIDTH 

FBOF 

T»'XN 

re 

2 

/TOP OF SCREEN 

FOE 1 

TCIXIPOS 

re 

2 

/TEMP IOSITION 

FBE3 

I 




FOE 3 

1 

TEMMJKARY STORAGE LOCATIONS FOR 

REGISTERS, ETC. 

F13C3 

1 




FBE3 

HLTEMP 

re 

2 


foes 

SPTtMP 

re 

2 


FDE7 

BKPrLO: 

re 

2 

/BREAK IT LOCATION 

FDE9 

BRKCOOE 

re 

l 

/CODE AT BREAK FT 

FBEA 

XV FI AG 

re 

l 

/CUR SCM XV FLAG 

FBEB 

TOP HAG 

re 

1 

/NON-ZERO IF TGPSaiEEN SET 



